KING Schools Special Student Pilot (Promo)

home *** CD-ROM | disk | FTP | other *** search

/ KING Schools Special Student Pilot (Promo) / Student Pilot Ve.iso / Tb50hyp.sbk (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1997-10-28 | 124.9 KB | 2,114 lines

URL Stuff asym_addAnswerHyperlink tbk_DoHyperlink _tbk_hyperlinkCandidates buttonClick buttonClick false _tbk_ExecHyperlink tbk_HasHyperlinks _asym_hyperlinks tbk_DoHyperlink _asym_hyperlinks _tbk_HyperlinkCandidates ,"J," .'+ +F false Itbk_PopupPage asym_resetCursor cursN _tbk_HyperlinkLinkInfo tbk_DisplayURL <exit> tbk_GoToPage _tbk_ExecHyperLink tbk_FindHyperPage pgRef >tbk_container false C6_tbk_HyperlinkIRow _tbk_HyperlinkLinkInfo l_tbk_PopupPage tbk_PopupPage C6_tbk_HyperlinkIRow false A_tbk_AddLinkToArray tbk_HasHyperlinks _asym_hyperlinks _asym_hyperlinks _tbk_AddHyperlink tbk_HasHyperlinks _asym_hyperlinks tbk_getHyperlinks w, #> itemOffset tbk_itemOffset of this book. &B. Store Directory in Hyperlink B. Store the directory with the book file name won't be able to move the books around without breaking FASYM_ProductPrefix fName in the hyperlink. This makes the link faster but you that will be searched automatically. You can: to find the destination book even if you move the books false thisBook to a different configuration directory, simply by changing the link. 5tbk_altPgName destBook V_SetHyperPath Mtbk_MakeIntoRelPath <next>,<previous>,<last>,<first>,<back> HshortFileName Mtbk_HyperPath hyperPath dlg.dll relPath pathOfFile mqtbk_itemOffset The destination book is not in a directory to search automatically. This will make it possible A. Add the destination directory to the current book's list of directories \ tbk_nameOrID ASYM_MTBVersion &A. Add Directory to Search Path thisPath the list of directories stored in the tbk_HyperPath property tbk_FindPathFile destPath >tbk_Container _tbk_AddLinkToArray <BookDir> >tbk_Container bkName tbk_CurrentDirectory _asym_HyperPath deftag Mtbk_MakeIntoRelPath pathOfFile BookDir thePath tbk_RelativePath _SetHyperPath tbk_FindHyperPage _tbk_BadLinksList C6_tbk_HyperlinkIRow _tbk_ClearHyperlinkFromArray false tbk_HasHyperlinks _asym_hyperlinks _asym_hyperlinks _tbk_ClearHyperlinkFromArray _tbk_ClearHyperlink >tbk_Container hotword button _AutoCloseCheck w, #> s_tbk_popViewers HorizontalDisplayRes >tbk_Container There are no Viewers available. false ScreenFromPage , Urefig VerticalDisplayRes Tis m-# HorizontalDisplayRes That -# sysMenu lScreenFromPage 9VerticalDisplayRes win.dll thinCaption asym_resetCursor magicName ASYM_MTBVersion tbk_TempViewer vtemp jtbk_CloseOnEsc thick autoClose Do not rename me FASYM_ProductPrefix shadow _tbk_PopupPage transPt false _tbk_sysCursor page id asym_resetCursor transPt oldPg pgRef false transfx oldCurs isURL %sysMousePosition% tbk_GoToPage .'+ +F asym_resetCursor <back> <next> pathOfFile <last> <previous> Mtbk_HyperPath <exit> <first> tbk_FindPathFile tbk_FindHyperPage _tbk_HyperlinkIRow .', #? pgCaption title tbk_AltPgName groupfieldrecordfieldpagebackgroundbook of book tbk_Container pathOfFile tbk_MakeIntoRelPath shortFileName w, #> FASYM_ProductPrefix itemOffset tbk_itemOffset , T-OC&-# jtbk_Trim tbk_CurrentDirectory dlg.dll pathOfFile mqtbk_itemOffset ASYM_MTBVersion _asym_HyperPath >tbk_Container tbk_HyperPath V_SetHyperPath Hyperlinking tbk_HyperPath w, #> tbk_IsFile FASYM_ProductPrefix DOSPath false jtbk_trim GetDosEnvironmentString I4GetDosEnvironmentString pathOfFile tbk_ExpandRelPath testName ASYM_MTBVersion bkPath DOS.DLL tbk_FindPathFile w, #> w, #> vGetCurrentDirectory FASYM_ProductPrefix GetCurrentDrive ASYM_MTBVersion GetCurrentDrive GetCurrentDirectory DOS.dll tbk_CurrentDirectory tbk_CurrentDirectory tbk_CurrentPath tbk_FindPage _asym_hyperlinks tbk_HasHyperlinks w, #> FASYM_ProductPrefix FileExists FileExists dos.dll ASYM_MTBVersion tbk_IsFile .', #? tbk_NameOrID tbk_trim oldse _tbk_SysCursor ASYM_MTBVersion ASYM_ProductPrefix ChooseWebBrowser URL Stuff tbk_ChooseWebBrowser URL Stuff DisplayURL tbk_DisplayURL >tbk_Container _tbk_StringArray tbk_GetString Cancel MessageBox MessageBox ,$TgO Ignore Exclamation system Information AbortRetryIgnore OkCancel Abort RetryCancel YesNoCancel YesNo Retry Question hyp_MessageBox w, #> w, #> FASYM_ProductPrefix ASYM_MTBVersion tbk_iniFile tbk_RelativePath pathOfFile bkPath tbk_RelativePath Fax db ASYM_TpID 94112215422714136113094 ChooseFromTextLinesDlg ASYM_BeenHere deflt defaultButton of Page id 2 defBtn needFix Button id 1 of Page id 2 refBtn Button id 1 of Page id 2 cancelBtn Main List sized sized ssm = sysSuspendMessages m"TL" m"BR" yp = sysPageUnitsPerPixel + xp, + yp,\ - xp, 3DField tbk_wid_type Main List >tbk_Container buttonDoubleClick ASYM_reset enabled B"OK" tbk_Container( notifyBefore ASYM_reset Book "G:\FRANKJR\CTB30R.SBK" wrkLevel Page id 206 of Book "G:\FRANKJR\CTB30R.SBK" wrkPg pgCnt NETSCAPE 2.01Gold Microsoft Plus! for Windows 95 4.70.1086 <another one> DlgFrame Prompt ASYM_reset notifyBefore ASYM_reset Choose a default Web browser to use with ToolBook:Book II: Ntbk_GetString enterPage buttonClick .', " keyUp notifyBefore K= tbk_GetString("OK") buttonClick notifyAfter Cancel Cancel Ntbk_GetString enterPage Cancel buttonClick .', " keyUp notifyBefore K= tbk_GetString("Cancel") buttonClick notifyAfter Cancel author keyDown enterPage ASYM_reset keyUp Button id 0 of Page id 2 ChooseFromTextLinesDlg Fax db URL Stuff ASYM_BeenHere URL STUFF 951205160027559914889115254 ASYM_TpID buttonclick buttonclick Script Copyright 1995 Asymetrix Corporation ToolBook II 5.01 - Runtime HyperLink SysBookSysBookBook ASYM_TempViewer Do not rename me 1 ge "ChooseFromTextLinesDlg" B50HYP.SBK" "D:\FOO.TBK" ge id 1 of Book "" ChooseFromTextLinesDlg Choose Browser ASYM_TempViewer ASYM_CloseOnEsc Do not rename me 2 ge id 82 of Book "G:\FRANKJR\TUTORIAL\CBTTOUR.TBK" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_TempViewer ASYM_CloseOnEsc Do not rename me 3 ge id 82 of Book "G:\FRANKJR\TUTORIAL\CBTTOUR.TBK" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_TempViewer ASYM_CloseOnEsc Do not rename me 4 ge id 82 of Book "G:\FRANKJR\TUTORIAL\CBTTOUR.TBK" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_TempViewer ASYM_CloseOnEsc Do not rename me 5 ge id 82 of Book "G:\FRANKJR\TUTORIAL\CBTTOUR.TBK" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_TempViewer ASYM_CloseOnEsc Do not rename me 6 ge id 82 of Book "G:\FRANKJR\TUTORIAL\CBTTOUR.TBK" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_CloseOnEsc Do not rename me 7 tbk_TempViewer tbk_CloseOnEsc Page id 1 of Book "C:\TEMP\BAR.TBK" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_TempViewer ASYM_CloseOnEsc ASYMI_SysGridSnap <BookPath> :HDMEDIAPATH MS Sans Serif info_LastSaved Mike Florence Arial MS Sans Serif info_LastSavedBy FALSE ASYMI_SysGrid ASYMI_SySysGridSpacing Arial 10/9/96 1:17:57 PM MS Sans Serif Arial Arial 10/9/96 1:17:48 PM w, #> itemOffset tbk_itemOffset dlg.dll mqtbk_itemOffset ASYM_MTBVersion stbk_popViewers closeWindow closeWindow SYSTEM stbk_popViewers linkDLL "tb" & ASYM_MTBVersion() & "dlg.dll" INT tbk_itemOffset = (STRING, author skrefFocus refBtn keyDown Cancel cancelBtn defBtn skrefFocus ASYM_IsWin31 enterPage skrefFocus setDefButton refBtn button skrefFocus pushbutton cancelBtn defBtn rkrefFocus notifybefore notifyBefore x = 13 orefBtn enabled buttonClick orefFocus ocancelBtn = B"Cancel" odefBtn = B"OK" ASYM_IsWin31() u= "pushbutton" setDefButton btn = NULL OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y popup viewer default button _ASYM_ChooseFromTextLinesDlg dlgCaption, prompt, txtLines, deflt 4s_ctb50r_cftldb v = tbk_Container( defaultPage "main list" enabled B"OK" FlushMessageQueue() %modal & "" fld = customSize = "small" = "medium" textRightOverflow = "large" Cancel closeThisWindow firstIdle i = 1 txt = cnt = selectedTextLines okBtn = B"OK" B"OK" grpFr = "dlgframe" fldPrmpt = grpList = OKbtn = B"OK" Cancelbtn = 15,45,2955,2550 60,120,3075,570 75,585,2880,2490 3030,45 }3030,495 /= 4575,2595 15,45,4800,2550 60,120,4740,570 75,585,4755,2490 4875,45 4875,495 /= 6450,2595 15,45,7260,2550 60,120,7185,570 75,585,7200,2490 7335,45 7335,495 /= 8880,2595 ;--970422rev ChooseWebBrowser -- This function uses redundant methods locate the browsers installed on -- It knows about Explorer Netscape, but -- also allows definition another ZexeName, exeTitle, availableExes DLLID = ASYM_ProductPrefix() & ASYM_MTBVersion() linkDLL 8& "dlg.dll" STRING OpenFileDlgAny = !,INT) tbk_itemOffset = $ tbk_textlineOffset = oListToTextLine( & "dos. GetDriveList() GetDriveKind( GetFileDate( FileExists( Try32bitDLLLink ny = & "win. INT SetIniVar( GetIniVar( GetFileVersion( POINTER tbk_getWinPointer = getMemBlock (DWORD) tbk_freeWinPointer = freeMemBlock ( -- AddToAvailableExes will -- list file does xexist already FindIExploreExe(),\ FindNetscapeExe(),\ -- Look a custom specified Huser stored .ini TBKIniValue("Internet Apps","Custom ^association f.htm -- (obsolete , but may give a clue) "Extensions"," -- A more robust way Windows API what files = AddtoAvailableExes(\ FindRegAssociation(". can be slower ASYM_FindExecutableFile("*.htm"),\ -- There be a known running! knownModules = "IEXPLORE.EXE,NETSCAPE. foundModuleExes = FindModuleExeFiles( xNULL previously identified Web Browsers", ) > 0 SetTBKIniValue(" be a default http") defaultExename = -- End automatic exes cntAvail = -- For some bogus reason, IE 3.0 setup creates -- a pcalled IE20. finds earlier version . However, just a clone iexplore. -- so we there a valid present "\ie20. ^exe" -- Update our INI ) result -- whatever we ' program title, DDE p, etc. -- We info dialog boxes communicate once launched UpdateIniBrowserInfo iniFile, x = ) = 1 = GetExeTitle( txt = expandString(tbk_GetString("Confirm x",\ "The %1." & CRLF & "Correct?"),\ ASYM_MessageBox( "question", "YesNoCancel") "&No" c"No" askList = strNone = _ASYM_ChooseFromTextLinesDlg( fToolBook") & ":",\ defaultExeName))\ tbk_Container( TextLineOffset( -- If we still don't prompt = Locate filter = Programs") && ",*.EXE" oldDir = tbk_CurrentDirectory() m,"*. tbk_SetCurrentDirectory( ) = 1 WriteBrowserIniEntry "airmos. "netscape. =FALSE & "f32. GetShortFileName32( GetLongFileName32( ny = OpenFileDlg32( oldList = sectn, key entry be a -- 1 - full executable -- 2 - module p(used -- 3 - human-readable product iniVal = winClass = ddeAppName = Explorer_Frame" k"SPRYMosaicCls" p "mosaic" winclass = -- placeholder -- Attempts extract .EXE strExplorer = MicrosoftExplorer",\ ,%1(%2)") verName = verInfo = getFileVersion( verNo = (TM) Tools"\ c"4.40.3" ,"1.0 ", (TM) c"4.40." ,"2.0 ", bld = QueryRegistry32("HKEY_LOCAL_MACHINE",\ "SOFTWARE\ "Build") ~("4.7", ) = 1 verMajor = "3.x" ~("4.", ) = 1 X"," %1"), --iVer = "IVER") 0) && "AIRMOS. = 0x80000002 keyName = " Classes\" & QueryRegistry16( && "\shell\ p = p > 1 & "CurrentVersion\App Paths\ NetscapeMarkup\"\ c"%1" "embedding"," ini") MasterKey, ZResult LONG RegOpenKey( RegQueryValue( RegDeleteKey( RegCloseKey( lpBuff = (256) lpCbBuff = lpHKey = "0,0" "alloc error" r = , lpHkey) r <> 0 -- we 16 bit r = r = 0 -- ERROR_SUCCESS PointerDWORD(0, PointerLONG(0, ,255) , "", = pointerSTRING(0, tbk_FreeWinPointer( twiddleCursor 4s_twiddleCursor = 36 ) = 29 ) > 0 ) < 1 knownModuleNames -- Assumes tbk_GetWinPointer() -- are linked X"kernel" GetModuleHandle( GetModuleFileName( ) > 0 hMod = <> 0 <> "0,0" ,255) MainKey, , valueName isType(" HKEY_MAIN = R = "HKEY_CLASSES_ROOT" )0x80000000 | = "HKEY_CURRENT_USER" S0x80000001 = "HKEY_USERS" 0x80000003 = "HKEY_PERFORMANCE_DATA" 0x80000004 = "HKEY_CURRENT_CONFIG" 0x80000005 = "HKEY_DYN_DATA" 0x80000006 ss = linkDLL32 "advapi32. QueryValue32 = RegQueryValueExA( 32 = RegOpenKeyA( RegDeleteKey32 = RegDeleteKeyA( RegCloseKey32 = (256) lpType = "0,0" "Memory ctrying registry r = RegOpenKey32( ,1) -- REG_SZ ,255) PointerSTRING(0, --r = r = RegQueryValue32( reslen = pointerDWORD(0, EnumWindowsReg isNumber( REgEnumKey( (256) "0,0" r = i = 0 r = RegEnumKey( , i, , 255) r = 0 Zr <> 0 newValue ,tbk_iniFile()) fn, flg (fn) fn, q = 0 (fn) $widget assumes that # has been recorded #widgets scripts DisplayURL #url, popup ZerrStr, , appWinClass, ! FindWindowByTitle = ! FindWindowByClass = " ShowWindow( 4" BringWindowToTop( O" GetWindowLong( "IsIconic( #GetSystemDirectory( "k ( .%& " UseNewWindow = ( @"et AppWinClass = 2& = C& = W&) < 1 x& = tbk_ChooseWebBrowser() -#et B ://www.asymetrix.com/" ShowError("<invalid URL>") ASYM_ShortFileName( revOffset(".", -- We DDE, apparently useNewWindow winID = "0x0" FFFFFFFF" = URLSpecialCharsExpand(FileNameToURL(url)) -- cmd = QUOTE & ," & & ",0, M"WWW_OpenURL" yieldApp() x"OK" FlushMessageQueue() "no server" -- weirdness explorer 2.0 isIEOld = c"iExplore. -- Check existence url.dll <> "0,0" ,255) winSysDir = 6& "\ v") < 1\ O& "32\ ") < 1 err = 'URL. \*required .(specification"\ && "appears be missing. To avoid errors, you should"\ && "re- showError ss = + && se = r, url r= se -- Give a little started mmyield -bit code activates front "0xFFFFFFFF,0x0" M"WWW_Activate" -- Some -need a (prodding -- their *goose them action even they honor -current ! app hands on .activation a hWnd = 0 DDEAppName M"WWW_GetWindowInfo" -- Note: supported HSpry -- causes GPF IExplorer &got winTitle = isIconic( ) <> 0 errorKey, fn errorkey %"If plenty memory disk && "verify /correctly." %ActuallyMaybeBadInstall",txt) fn & -- Win95 compatible ZtestFn, f .GetTempFileName(BYTE, 0& "DOS. /RemoveFile( INT fileExists( .k ( lpBuffer = /(256) "0,0" c"*" fn <> fn) < 1 0,"TST",0, tempFn = p = p > 0 f = PathOfFile( & "jg080647" & U(fn) ss = f = fn status = -(f,ASYM_CurrentDirectory(), G<= 32 ss = I3& " $exe,1) +1<> I) < 1)) s1, s2 L = U(s1) - 1 U(s2) i + L URLToFileName fn fn = tbk_trim(fn) strPrefix = " 1:///" p = , fn) p <> 1 2://" p <> 1 fn = URLSpecialCharsContract(fn) p = ~("|", fn) p > 0 fn = ":" p = ~("/",fn) cp > 0 fn = "\" p = ~("/",fn) ccnt = URLHex = "%@h00" ss = Ri+1 c = errFlagged = c = c < 33 5"Warnings","Invalid ,tbk_IniFile()) |-s & cspaces ! problems servers. 4be converted 8escape"\ && "sequence %20 08HTML generated HWebPublisher." ShowWarning(txt, " s = c tbk_getString a,b -- Converts a fully qualified fn = 1:",fn) = 1 ~("gopher:",fn) = 1 ~("mailto:",fn) = 1 ~("ftp:",fn) = 1 nd(fn) p = ~("#", fn) p > 1 fn,1) ) < 1 fn = U(fn) *fn,1) ) < 1 fn = 7:///" p = , fn) p = 1 ]7://" p = , fn) p = 1 p = ~(":", fn) p > 0 fn = "|" p = ~("\",fn) cp > 0 fn = "/" p = ~("\",fn) fn = nd(fn) 8:///" buttonClick loc LOCAL hyperlinks[][] candidates[] asym_addAnswerHyperlink(); -- test CBT Edtion, NULL xpresent obj = _tbk_hyperlinkCandidates( tbk_DoHyperlink( i], " , triggerName tbk_HasHyperlinks( hlinks = _asym_hyperlinks _tbk_ExecHyperlink( _tbk_HyperlinkCandidates obj, Hreference WORD n n] = _tbk_ExecHyperLink , linkName _tbk_HyperlinkLinkInfo( cursN = isType(" "> 0 *<= 44 = TRUE; -- URL tbk_DisplayURL (exeName, tbk_PopupPage( tbk_GoToPage( asym_resetCursor , resolv i = _tbk_HyperlinkIRow( i = 0 i][2] & i][3]) = i][2] "<" -- keyword ~ <> pgRef = tbk_FindHyperPage ( i][3], [i][4]) i][3], [i][4], [i][5]) i][5], i][6], i][7], i][8], i][9] i][5] = " tbk_container( 8) <> "OK", i][3], i][4] "BAD", i][2], i][3], [i][4] , popStyle, pos, captn, , isURL _tbk_PopupPage( 5tn, _tbk_AddHyperlink , transFx, linkType, i = i = 0 i = dimensions( ) + 1 i = 1 i][1] = _tbk_AddLinkToArray(hyperLinks, i, tbk_getHyperlinks LInfo n = i][5] i][9] i][7] i][6] i][4] i][3] i][2] i][1] hLInfo = & CRLF iRow, --** HCO 940727 linkDLL ASYM_ProductPrefix() & ASYM_MTBVersion() & "dlg.dll" INT tbk_itemOffset = (STRING, .>") > 0 ][2] = ][3] = ][4] = ][2] = tbk_nameOrID( ][3] = tbk_altPgName( thisBook = destBook = tbk_Container( ][4] = fName = destPath = pathOfFile( thisPath = "c:\" "c:\x\" relPath = tbk_MakeIntoRelPath( shortFileName( hyperPath = tbk_HyperPath( inPath = (tbk_FindPathFile( B) <> "The destination a directory"\ && "that will be searched automatically. You can:"\ && "A. Add the current 8's list directories"\ nThis possible"\ find 8even mbooks"\ a different configuration , simply Hchanging"\ stored property"\ & "B. Store 8file makes faster but && "won't be able around without breaking"\ f"&A. Directory Search "&B. "Add" _SetHyperPath ][4] = ][5] = ][6] = ][7] = ][9] = bk, what bk <> bk = bk = bk = bkName = BookDir = tbk_CurrentDirectory() deftag = "< tagLen = BookDirLen = dir = <> "\" @bookDir +) = 1 ) = 1 taglen thePath = tbk_RelativePath( *<> dir thepath _asym_HyperPath _tbk_BadLinksList --** HCO 940727 stack badLinks [i][2] <> [i][2], i,3], i][4]) = i][1] _tbk_ClearHyperlinkFromArray newLinks[][] ,i,j,k n = i = IsAnsArray = ( ) > 10) (i > 0 (n = 1 i = 1) -- special Mbecause array assignment bug i][j] = i > 0 j][k] = j][k] n - 1 j][k] = j+1][k] = newlinks 1][2] <> ) <= 10 ) = 1 1][2] = _AutoCloseCheck loc v = . = mousePosition objectFromPoint( , fx, {oldPg oldCurs pos = maxPopups = 5 --** MAGIC NUMBER magicName = "Do xrename me" myBk = ss = (s_tbk_popViewers) >= isOpen parentHandle close v = ss; -- available vtemp = && i) vTemp "There tbk_TempViewer style v = "sysMenu" imageBuffers v = 1 alwaysReader captionBar tbk_CloseOnEsc c"autoClose" c"shadow" c"thick" v = "thickFrame" c"thinCaption" v = "thinFrame" v = " v = " v = dialogFrame ss = --** DEBUG "win. ScreenFromPage( VerticalDisplayRes() HorizontalDisplayRes() -- place mouseclick --defaultPosition v = " pageUnitsToScreen( , targetWindow) windowHandle ',pageScroll =, pos) defaultPage x2 > s() - x2,0 y2 > ) - y2 x1 < 0 H-x1,0 y1 < 0 H0,-y1 -- sharedScript " , transfx, ss= = _tbk_sysCursor() <> " p = p > 0 transPt = Vp + 4 transition pgName, , bk, logical ss , destbk refString "<" -- pg = bk = ss = bk <> bk = 8) & bk) = bk bk = bk = "ID" H DWORD, " && " && isObject( -- "ID" ) = 2 AltPgName) n = >$i][1] = tbk_AltPgName title pgCaption "ID" && A#objType $nextObj wCnt = $"BOOK" WCnt "groupfieldrecordfieldpagebackgroundbook" p = p > 0 Vp+4 Obj = U(fn) rootPath,longPath ) = 1 p1 = 1;p2 = p1 cp2 < p2 > 0 dirlen = p2 - p1 p2 - 1 p2 = p2 - p1 = p2 U(fn) Vi + 1 U(fn) result, bkPath, bk = bk = bk <> bk = bk <> tbk_Trim( ) > 0 "Hyperlinking" DOSPath = c":\" tbk_IsFile( x.DLL" GetDosEnvironmentString( "PATH") p = ~("=", p > 0 p = ~(";", cp <> 0 = "," p = ~(";", tbk_trim( <> "\" tbk_ExpandRelPath( <> ":" testName = $#) & # "DOS. " GetCurrentDrive() # GetCurrentDirectory( drv = "\" & <> "\" <& ":" & tbk_CurrentPath tbk_FindPage pgN ss = , obj ss = FileExists( tbk_NameOrID c"//" "ID" && cs <> s <= SPACE cs <> s <= _tbk_SysCursor ;oldse= r;oldsen=sysErrorNumber ,real", 1& dotFlag "5.0" & capFlag tbk_ChooseWebBrowser ,Stuff" ,url, mode tbk_GetString strgName, strgDflt Zstrgs[][] bk = bk = se = ss = T = _tbk_StringArray r= se i][1] = i][2] r= se s = s = hyp_MessageBox cap, msg, icn, btns, defBtn, modality 1LONG desc 1retValue oldLock = = FALSE ( "USER" INT ~ = "OkCancel" m = 0x0001 = "AbortRetryIgnore" = 0x0002 = "YesNoCancel" = 0x0003 = 0x0004 = "RetryCancel" = 0x0005 icn = "Stop" H0x0010 Question" H0x0020 @Exclamation" H0x0030 dInformation" H0x0040 H0x0100 H0x0200 H0x1000 = "task" H0x2000 msg = cap = = "OK" = "Yes" = "No" tbk_iniFile sysversion c" MM" !2) & + ".INI" +) & !%<> s*) = 1 .'+ +F deflt prompt >tbk_Container ChooseFromTextLinesDlg s_ctb50r_cftldb main list _ASYM_ChooseFromTextLinesDlg ,&H.& ,&H.& prompt customSize small medium large main list enterPage closeThisWindow Cancel closeThisWindow okBtn deflt main list firstIdle main list closeThisWindow s_ctb50r_cftldb main list cancel prompt OKbtn grpFr small medium Cancelbtn large dlgframe grpList fldPrmpt main list customSize @[.CB} .'+ +F w, #> .'+ +F .'+ +F .'+ +F .'+ +F fB strNone SetIniVar GetIniVar GetFileVersion getMemBlock tbk_getWinPointer freeMemBlock tbk_freeWinPointer oldDir cancel >tbk_Container TBKIniValue epTry32bitDLLLink DLLID &Cancel iexplore.exe GetExeTitle YesNoCancel dos.dll OpenFileDlg OpenFileDlgAny \ie20.exe win.dll Programs TextLineOffset Locate Web Browser ChooseFromTextLinesDlg dlg.dll FindRegAssociation GetIniVar airmos.exe tbk_CurrentDirectory iniFile ASYM_MTBVersion question GetDriveList GetDriveKind GetFileDate FileExists FindModuleExeFiles FindNetscapeExe WriteBrowserIniEntry <another one> Custom browser knownModules Correct? \iexplore.exe AddtoAvailableExes prompt FASYM_ProductPrefix UpdateIniBrowserInfo foundModuleExes askList win.ini FileExists _ASYM_ChooseFromTextLinesDlg netscape.exe AddToAvailableExes ASYM_MessageBox FindIExploreExe Choose Browser defaultExename The browser to use is %1. Ntbk_GetString Internet Apps Extensions filter ASYM_FindExecutableFile lOpenFileDlgAny Confirm browser x OpenFileDlg OpenFileDlgAny itemOffset tbk_itemOffset textlineOffset tbk_textlineOffset ListToTextLine *.exe Choose a default Web browser to use with ToolBook ,*.EXE IEXPLORE.EXE,NETSCAPE.EXE Web Browser Choose a Web browser SetTBKIniValue *.htm Web Browsers *tbk_SetCurrentDirectory ChooseWebBrowser w, #> FASYM_ProductPrefix f32.dll ASYM_MTBVersion GetShortFileName32 GetLongFileName32 OpenFileDlg32 OpenFileDlgAny Try32bitDLLLink ,&H.& TBKIniValue Web Browsers WriteBrowserIniEntry oldList SetTBKIniValue UpdateIniBrowserInfo airmos.exe winClass iexplore.exe GetExeTitle ~GetFileVersion Internet Explorer_Frame iniVal mosaic GetShortFileName32 SPRYMosaicCls ddeAppName SetTBKIniValue WriteBrowserIniEntry w, #? MicrosoftExplorer verNo iexplore.exe GetShortFileName32 4.40.3 Microsoft Internet Explorer %1(%2) Build %1 ~getFileVersion verMajor Build Ntbk_GetString GetLongFileName32 Microsoft AIRMOS.EXE SOFTWARE\Microsoft\Internet Explorer HKEY_LOCAL_MACHINE QueryRegistry32 Microsoft Windows(TM) Internet Tools strExplorer verName verInfo 4.40. Mosaic GetFileDate Build X GetExeTitle AHKEY_LOCAL_MACHINE QueryRegistry16 \shell\open\command keyName SOFTWARE\Classes\ FindRegAssociation AHKEY_LOCAL_MACHINE QueryRegistry16 CurrentVersion\App Paths\IEXPLORE.EXE keyName SOFTWARE\Microsoft\Windows\ FindIExploreExe AHKEY_LOCAL_MACHINE QueryRegistry16 win.ini NetscapeMarkup shell\open\command exeName embedding GetIniVar keyName SOFTWARE\Classes\NetscapeMarkup\ FindNetscapeExe AlpHKey RegOpenKey RegQueryValue RegDeleteKey RegCloseKey HKEY_LOCAL_MACHINE shell RegCloseKey r1tbk_FreeWinPointer alloc error lpCbBuff >eRegQueryValue lpBuff RegOpenKey tbk_getWinPointer QueryRegistry16 s_twiddleCursor twiddleCursor FileExists mqtbk_itemOffset GetShortFileName32 AddToAvailableExes GetModuleHandle GetModuleFileName GetModuleFileName GetModuleHandle r1tbk_FreeWinPointer kernel lpBuff tbk_GetWinPointer FindModuleExeFiles AlpHKey RegQueryValueExA RegQueryValue32 RegOpenKeyA RegOpenKey32 RegDeleteKeyA RegDeleteKey32 RegCloseKey RegCloseKey32 gOUHKEY_LOCAL_MACHINE lpType HKEY_CURRENT_CONFIG AHKEY_CLASSES_ROOT +yRegQueryValue32 HKEY_MAIN Aadvapi32.dll HKEY_CURRENT_USER RegOpenKey32 shell RegOpenKey RegQueryValue RegDeleteKey RegCloseKey AERROR_SUCCESS Ar1tbk_FreeWinPointer HKEY_USERS HKEY_PERFORMANCE_DATA lpCbBuff Memory alloc error while trying to get registry Info lpBuff RegCloseKey32 tbk_getWinPointer HKEY_DYN_DATA QueryRegistry32 AlpHKey HKEY_LOCAL_MACHINE HKEY_CLASSES_ROOT RegOpenKey RegQueryValue REgEnumKey RegDeleteKey RegCloseKey risNumber HKEY_MAIN HKEY_CURRENT_USER shell RegEnumKey ERROR_SUCCESS RegCloseKey r1tbk_FreeWinPointer lpCbBuff Memory alloc error while trying to get registry Info lpBuff RegOpenKey tbk_getWinPointer EnumWindowsReg tbk_iniFile SetIniVar SetTBKIniValue tbk_iniFile GetIniVar TBKIniValue HShortFileName GetShortFileName32 GetShortFileName32 HShortFileName GetLongFileName32 GetLongFileName32 w, #> .'+ +F .'+ +F .'+ +F .'+ +F WWW_OpenURL iexplore The system file URL.DLL required to launch Microsoft 32\url.dll TBKIniValue DLLID }gyieldApp MFileNameToURL FindWindowByTitle winSysDir Internet Apps GetIniVar getMemBlock tbk_getWinPointer freeMemBlock tbk_freeWinPointer ,CTindE-$ winTitle netscape r1tbk_freeWinPointer \url.dll revOffset dos.dll ASYM_MTBVersion BringWindowToTop GetShortFileName32 FASYM_ProductPrefix GetSystemDirectory win.dll WWW_Activate lpBuff URLSpecialCharsExpand popup ShowWindow epTry32bitDLLLink 0xFFFFFFFF TGetSystemDirectory iniFile ,ASYM_ShortFileName iExplore.exe FileExists airmos showError FindWindow FindWindowByTitle FindWindow FindWindowByClass ShowWindow BringWindowToTop ,$Tni GetWindowLong IsIconic ,$Ttm tbk_iniFile `isIconic kernel FileExists mosaic tbk_GetWinPointer UseNewWindow appears to be missing. To avoid errors, you should WWW_GetWindowInfo Internet Explorer with a local file specification 0xFFFFFFFF,0x0 ShowError FindWindowByClass ,0,"","", tbk_ChooseWebBrowser re-install Microsoft Explorer. winID no server DisplayURL ActuallyMaybeBadInstall Ntbk_GetString verify that the browser is installed correctly. If there is plenty of memory and disk space, showError w, #> 1, #> ,"J " RemoveFile GetTempFileName FASYM_ProductPrefix aFindExecutable DLLID RemoveFile fileExists PathOfFile win.dll f32.dll fileExists tempFn lpBuffer tbk_getWinPointer r1tbk_freeWinPointer GetShortFileName32 ASYM_CurrentDirectory revOffset FileExists FindExecutable kernel shell.dll ASYM_MTBVersion getMemBlock tbk_getWinPointer freeMemBlock tbk_freeWinPointer GetShortFileName32 GetTempFileName DOS.dll jg080647 status _FindExecutableFile revOffset URLSpecialCharsContract jtbk_trim file:/// file:// strPrefix URLToFileName URLHex %@h00 URLSpecialCharsContract 1, "L ,"J!" URLHex FALSE Warnings tbk_IniFile errFlagged Invalid space in URL ...contains spaces that will cause problems with some browsers %@H00 GetIniVar or servers. The spaces will be converted to the escape sequence %20 in the HTML pages generated by WebPublisher. ShowWarning URLSpecialCharsExpand Ntbk_getString tbk_getString 1, #> GetShortFileName32 file:// FileExists jtbk_trim gopher: file:/// URLSpecialCharsExpand http: strPrefix mailto: FileNameToURL &File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar erlink" if "Add" F 4 4 K *ClassTbl* *ClassEntry* *PTABLE* *WINDOWSEG* *ICONRESTAB* *ICONRESSEG* *ICONRES* Background *OBJTABLE* *IDTABLE* *NAMETAB* Rectangle Ellipse RoundedRectangle Polygon IrregularPolygon AngledLine Curve PaintObject Picture Hotword *RHOTWORD* Group Stage Button Viewer ComboBox Field RecordField *TbxBase* & eld 4 bxBase* bxBase*